home *** CD-ROM | disk | FTP | other *** search
- object Form5: TForm5
- Left = 297
- Top = 235
- Width = 458
- Height = 218
- HorzScrollBar.Tracking = True
- ActiveControl = Memo
- BorderIcons = [biSystemMenu, biMinimize]
- Caption = 'Image text'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Menu = MainMenu1
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Memo: TMemo
- Left = 0
- Top = 0
- Width = 450
- Height = 172
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxLength = 65000
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 0
- WantTabs = True
- end
- object MainMenu1: TMainMenu
- Left = 104
- Top = 48
- object File: TMenuItem
- Caption = 'File'
- ShortCut = 0
- OnClick = FileClick
- object ReadFromJPEG: TMenuItem
- Caption = 'Read text from a JPEG file'
- ShortCut = 0
- OnClick = ReadFromJPEGClick
- end
- object WriteIntoJPEG: TMenuItem
- Caption = 'Write text into a JPEG file'
- ShortCut = 0
- OnClick = WriteIntoJPEGClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object OpenTextFile: TMenuItem
- Caption = 'Open textfile'
- ShortCut = 0
- OnClick = OpenTextFileClick
- end
- object SaveTextFile: TMenuItem
- Caption = 'Save textfile'
- ShortCut = 0
- OnClick = SaveTextFileClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'Close'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Clear: TMenuItem
- Caption = 'Clear'
- ShortCut = 0
- OnClick = ClearClick
- end
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Filter =
- 'JPEG files (*.JPG,*.JPEG,*.JFIF,*.JIF)|*.JPG; *.JPEG; *.JFIF; *.' +
- 'JIF|All files (*.*)|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Title = 'Read text from a JPEG file:'
- Left = 48
- Top = 32
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'jpg'
- FileEditStyle = fsEdit
- Filter =
- 'JPEG files (*.JPG, *.JPEG, *.JFIF, *.JIF)|*.JPG; *.JPEG; *.JFIF;' +
- ' *.JIF|All files (*.*)|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Title = 'Write text into a JPEG file:'
- Left = 64
- Top = 72
- end
- end
-